(Fpurecopy): Set the pvec tag on pseudo vectors.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3c275302f9f0d2cf5352c6ad56e1f96870a2ab3a..6f96f7da7ac583faa5ac4395b5a0c7be4c874781 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2007-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * alloc.c (Fpurecopy): Set the pvec tag on pseudo vectors.
+
        * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
        (XMISCANY): New macro.
        (XMISCTYPE): Use it.

diff --git a/src/alloc.c b/src/alloc.c
index 48857ecff147eb35100254c0c08cb24393b34a64..c42c27f0333a86530de50c34fc58c8e862f87d76 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4966,7 +4966,10 @@ Does not copy symbols.  Copies strings without text properties.  */)
       for (i = 0; i < size; i++)
        vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))
-       XSETCOMPILED (obj, vec);
+       {
+         XSETPVECTYPE (vec, PVEC_COMPILED);
+         XSETCOMPILED (obj, vec);
+       }
       else
        XSETVECTOR (obj, vec);
       return obj;